home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 11 / FM Towns Free Software Collection 11.iso / t_os / tool / i_o / i_o_ps.bas < prev    next >
BASIC Source File  |  1995-07-27  |  4KB  |  123 lines
  1. 10010 CLEAR ,,,,,500*1024
  2. 10020 SCREEN 0 : MOUSE 0
  3. 10030 WINDOW(0,479)-(639,0)
  4. 10040 VIEW(0,0)-(639,479)
  5. 10050 WIDTH 80,25
  6. 10060 CONSOLE 3,22,0
  7. 10070 PALETTE 0,[  0,  0,  0]
  8. 10080 PALETTE 1,[ 63, 63, 63]
  9. 10090 PALETTE 2,[127,127,127]
  10. 10100 PALETTE 3,[255,255,255]
  11. 10110 COLOR 7,,,4
  12. 10120 CLS
  13. 10130 DEF FONT "システム   12ﾄﾞｯﾄ"
  14. 10140 LOCATE  0,0 : PRINT " ADDRESS       DATA"
  15. 10150 LOCATE  0,1 : PRINT " Hex   Dec     Hex Dec"
  16. 10160 LOCATE 0,3
  17. 10170 READ I
  18. 10180 PRINT SPC(4-LEN(HEX$(I)));HEX$(I);
  19. 10190 PRINT USING " #####";I;
  20. 10200 LOCATE 40,0 : PRINT "実行キー : 終了"
  21. 10210 LOCATE 40,1 : PRINT "取消キー : 表示モード変更    C : クリア"
  22. 10220 FOR J=15 TO 255 STEP 16
  23. 10230    LINE(64+J*2,262)-STEP(0,1),PSET,%3
  24. 10240    SYMBOL(50+J*2,276),STR$(J),3/4,3/4,%3
  25. 10250 NEXT
  26. 10260 FOR U=0 TO 16
  27. 10270    FOR V=0 TO 16
  28. 10280       LINE(400,300+V*8)-STEP(128,0),PSET,%1
  29. 10290    NEXT
  30. 10300    LINE(400+U*8,300)-STEP(0,128),PSET,%1
  31. 10310 NEXT
  32. 10320 LINE(400,300)-(528,428),PSET,%2,B
  33. 10330 LINE(400,364)-(528,364),PSET,%2
  34. 10340 LINE(464,300)-(464,428),PSET,%2
  35. 10350 SYMBOL(376,370),"下位",3/4,3/4,%3
  36. 10360 SYMBOL(394,310),"0",3/4,3/4,%3
  37. 10370 SYMBOL(394,430),"F",3/4,3/4,%3
  38. 10380 SYMBOL(452,299),"上位",3/4,3/4,%3
  39. 10390 SYMBOL(403,299),"0",3/4,3/4,%3
  40. 10400 SYMBOL(523,299),"F",3/4,3/4,%3
  41. 10410 FOR J=0 TO 7
  42. 10420    SYMBOL(59+J*24,356),STR$(7-J),6/4,3/4,%3
  43. 10430    LINE(64+J*24,320)-STEP(20,20),PSET,%3,B
  44. 10440 NEXT
  45. 10450 SYMBOL(622,255),"255",3/4,3/4,%3
  46. 10460 SYMBOL(622,191),"191",3/4,3/4,%3
  47. 10470 SYMBOL(622,127),"127",3/4,3/4,%3
  48. 10480 SYMBOL(622, 63)," 63",3/4,3/4,%3
  49. 10490 X=619 : YO=INP(I)
  50. 10500 IN$="" : L=1
  51. 10510 WHILE IN$><CHR$(&H0D)
  52. 10520    IN$=INKEY$
  53. 10530    X=X+1
  54. 10540    IF X=620 THEN
  55. 10550       X=0 : XO=-1
  56. 10560       LINE(0,0)-(619,255),PSET,%1,BF
  57. 10570       LINE(0,63)-STEP(619,0),PSET,%2
  58. 10580       LINE(0,127)-STEP(619,0),PSET,%2
  59. 10590       LINE(0,191)-STEP(619,0),PSET,%2
  60. 10600       LINE(0,255)-STEP(619,0),PSET,%2
  61. 10610    ENDIF
  62. 10620    Y=INP(I)
  63. 10630    FOR J=0 TO 7
  64. 10640       BIT=Y AND (2^(7-J))
  65. 10650       IF BIT THEN
  66. 10660           LINE(69+J*24,325)-STEP(10,10),PSET,%3,BF
  67. 10670         ELSE
  68. 10680           LINE(69+J*24,325)-STEP(10,10),PSET,%0,BF
  69. 10690       ENDIF
  70. 10700    NEXT
  71. 10710    U=403+(Y\16)*8
  72. 10720    V=303+(Y MOD 16)*8
  73. 10730    LINE(U,V)-STEP(2,2),PSET,%3,BF
  74. 10740    LINE(64,260)-(574,261),PSET,%1,BF
  75. 10750    LINE(64,260)-(64+Y*2,261),PSET,%3,BF
  76. 10760    IF L=0 THEN LINE(X,0)-(X,Y),PSET,%3
  77. 10770    IF L=1 THEN LINE(XO,YO)-(X,Y),PSET,%3
  78. 10780    IF L=2 THEN PSET(X,Y),%3
  79. 10790    XO=X : YO=Y
  80. 10800    LOCATE 16,3 : PRINT SPC(2-LEN(HEX$(Y)));HEX$(Y);
  81. 10810    PRINT USING " ###";Y
  82. 10820    LINE(U,V)-STEP(2,2),PSET,%0,B
  83. 10830    IF IN$=CHR$(&H18) THEN
  84. 10840       L=L+1
  85. 10850       IF L=3 THEN L=0
  86. 10860    ENDIF
  87. 10870    IF IN$="c" OR IN$="C" THEN 
  88. 10880       FOR U=0 TO 15
  89. 10890          FOR V=0 TO 15
  90. 10900             PSET(404+U*8,304+V*8),%0
  91. 10910          NEXT
  92. 10920       NEXT
  93. 10930       LINE(0,0)-(619,255),PSET,%1,BF
  94. 10940       LINE(0,63)-STEP(619,0),PSET,%2
  95. 10950       LINE(0,127)-STEP(619,0),PSET,%2
  96. 10960       LINE(0,191)-STEP(619,0),PSET,%2
  97. 10970       LINE(0,255)-STEP(619,0),PSET,%2
  98. 10980       X=0 : XO=-1
  99. 10990    ENDIF
  100. 11000 WEND
  101. 11010 '
  102. 11020 '
  103. 11030 '
  104. 11040 '検査アドレス
  105. 11050 '
  106. 11060 DATA &h4e7
  107. 11070 '
  108. 11080 '
  109. 11090 '
  110. 11100 '￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
  111. 11110 '                              説 明 書
  112. 11120 '＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
  113. 11130 '
  114. 11140 '
  115. 11150 ' 　このプログラムは、特定のI/Oアドレスのデータを表示するものです。
  116. 11160 '
  117. 11170 '
  118. 11180 ' アドレスメモ
  119. 11190 '
  120. 11200 ' 4D0  パッド１入力レジスタ
  121. 11210 ' 4D2  パッド２入力レジスタ
  122. 11220 ' 4E7  ＡＤサンプリングデータレジスタ
  123.